home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / qbfaqr01.zip / DISCTRLC.BAS < prev    next >
BASIC Source File  |  1992-08-12  |  640b  |  30 lines
  1. SUB ToggleBreak (Sw%) STATIC
  2.   
  3.    'Purpose : To toggle the switching of the use of the CTRL-C, CTRL-Break key
  4.    'Input   : Sw% = 0 (false) to turn off CTRL-Break, Sw <> 0 (true) turns it on
  5.    'Returns : none
  6.  
  7.    DEF SEG = 0
  8.    IF DimFlg = 0 THEN
  9.       DimFlg = -1
  10.       DIM OldSeg%(4)
  11.       FOR I = &H6C TO &H6F
  12.          OldSeg%(I - &H6C) = PEEK(I)
  13.       NEXT I
  14.    END IF
  15.    IF Sw% = 0 THEN
  16.       POKE &H6C, &H53
  17.       POKE &H6D, &HFF
  18.       POKE &H6E, &H0
  19.       POKE &H6F, &HF0
  20.    ELSE
  21.       ' to reset:
  22.       FOR I = &H6C TO &H6F
  23.          POKE I, OldSeg%(I - &H6C)
  24.       NEXT
  25.    END IF
  26.  
  27.    DEF SEG
  28. END SUB
  29.  
  30.